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CONTROL DATA 6400/6500/6600 COBOL 

The COBOL language is designed to simplify the programming of 
business data processing operations; it produces easily modifiable 
source programs that result in shorter program development time and 
low program conversion costs. COBOL source and object programs 
run under the control of SCOPE Version 3.3. 

COBOL for the CONTROL DATA® 6000 series is upwards compat¬ 
ible with ANSI COBOL and also with 3000 COBOL. 


Special Features: 

Mass Storage input and output including Indexed Sequential file 
processing 

SORT verb sorts files within COBOL program 

Automatic table search using index names and the SEARCH and SET 
statements 

Report Writer to produce printed reports automatically, or report 
page may be produced by user with LINAGE clause and WRITE 
statement 

Full arithmetic facility including: 

18-digit operands 

DIVIDE with REMAINDER 

COMPUTE with exponentiation 

CORRESPONDING option with ADD and SUBTRACT 

Segmentation and overlay of object program 

ENTER and CALL verbs, Common-Storage section provide com¬ 
munication with separately compiled COBOL programs and also 
with FORTRAN or COMPASS programs 

COPY and INCLUDE provide access to COBOL source library 

RERUN provides memory dumps with restart at specified checkpoints 

Remote Interactive capability for remote terminal input/output 
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PROGRAM EFFICIENCY HINTS 

To reduce key punching: 

Use abbreviations where permitted. 

Use PIC clause rather than SIZE, CLASS, USAGE clauses. 

To increase compilation efficiency: 

Restrict data and paragraph names to 9 characters or less. 
Eliminate unnecessary paragraph names. 

Reduce forward references. 

To increase execution efficiency: 

Use same size sending and receiving fields. 

Make table and item sizes a multiple of 10 characters. 

Reduce subscripting. 

Subscript with literals instead of variables. 

Use COMPUTATIONAL-1 items or index-names as subscripts. 
Use COMPUTATIONAL-1 items as arithmetic variables. 
Restrict arithmetic items to 9 digits or less. 

Use standard labels. 

Use SYNCHRONIZED RIGHT clause for data frequently 
referenced. 

Use SAME RECORD AREA to save moves; SAME AREA to 
save space. 

COBOL NOTATION 

[ ] Enclosed elements are optional. 

I I Only one element may be selected. 

... Repeat preceding bracketed material as needed. 

COBOL words have preassigned meanings and appear in capitals. 
COBOL words not underlined may be omitted. 

Terms in small letters are supplied by the programmer. 

Punctuation and special characters are required where shown. 
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IDENTIFICATION DIVISION 


IDENTIFICATION DIVISION . 

PROGRAM-ID . program-name. 

[ AUTHOR , [comment-sentences.] ] 

[ INSTALLATION , [comment-sentences.] ] 

[ DATE-WRITTEN , [comment-sentences.]] 

[ DATE-COMPILED , [current-date supplied by compiler.] ] 
[ SECURITY , [comment-sentences.] ] 

[ REMARKS , [comment-sentences.] ] 

ENVIRONMENT DIVISION 


ENVIRONMENT DIVISION . 

CONFIGURATION SECTION . 

SOURCE-COMPUTER . 

format 1: 

r ^literal-1 ) 

COPY library-name REPLACING < word-1 ? BY 
L (identifier-1/ 


! literal-2 ^ literal-3 1 f literal-4 y 

word-2 > I < word-3 > ^ < word-4 > 

identifier-2/ Ll identifier-3) (identifier-4)_ 

format 2: 

(6400 ) 

< 6500 > 

(6600) 

OBJECT-COMPUTER , 
format 1: 

r Hiteral-I \ 

COPY library-name REPLACING < word-1 > ^ 

L (identifier-1) 

! literal-2 ^ rniteral-3 \ /literal-4 Y 

word-2 > I < word-3 > BY < word-4 > 

identifier-2) L( identifier-3) (identifier-4)_ 

format 2: 


(6400) 

< 6500 \ [ SEGMENT-LIMIT IS priority-number]. 
(6600) 
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SPECIAL-NAMES. 


format 1: 


/ literal-1 

COPY library-name REPLACING < word-1 ^ BY 
* identifier-1 * 


f literal-2 
word-2 
identifier-2 


K literal-3 
word-3 
identifier-3 


{ literal-4 \~j 
word-4 y 
identifier-4/J 




SWITCH integer-1 

ON STATUS IS switch-status-name 1 

[ OFF STATUS IS switch-status-name-2] 
OFF STATUS IS switch-status-name-2 
[ ON STATUS jS switch-name-1 ] 
[non-numeric-literal [S mnemonic-name-1] ... 
[implementor-name IS mnemonlc-name-2] ... 

[ CURRENCY SIGN IS literal] 

[ DECIMAL-POINT IS COMMA ] 

[ CONSOLE IS mnemonic-name-3] 

[ TERMINAL mnemonic-name-4]. 

INPUT-OUTPUT SECTION . 

FILE-CONTROL. 


format 1: 


! literal-1 
word-1 ) BY 
identifier-' 


J 


{ literal-2 \ r/llteral-3 \ 
word-2 > < word-3 > 

identifier-2; Ltidentifier-S/ 


{ literal-4 \- 
word-4 > 
identifler-4;_ 
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format 2: 


SELECT [ OPTIONAL ] file-name-1 [ RENAMING file-name-2] 
ASSIGN TO implementor-name-1 [fOR MULTIPLE 


r RESERVE 1!^ J 

ALTERNATE 

rarea n 

L (integer-1) 


L\ AREAS). 


[ FILE-LIMIT IS literal-11 

[organization !S 

[^MooE. isr-]] 

[ PROCESSING MODE IS SEQUENTIAL ] 


[ KEYISdata-name-2l 


( SYMBOLIC ) 
[SELECT... ] . 

I-O-CONTROL. 


COPY library-name 

! literal-2 
word-2 
identifier-2 


[ (literal-1 
REPLACING <word-1 

* identifier-1, 
r( literal-3 \ (literal-4 

I \ word-3 / by < word-4 

LI identifier-3; (identifier- 


J] 


format 2: 

( END OF REEL 

RERUN [ ON file-name-1] EVERY < integer-1 RECORDS 
-1 ( condition-name 

OF file-name-2 

j sAME file-name-3,file-name-4 

[file-name-5] ...j 

j ^MULTIPLE FILE TAPE CONTAINS file-name-6 
[ POSITION integer-2] [file-name-7 
[ POSITION integer-31]..] 
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PICTURE DESCRIPTION CODES 


Data Characters 

A Alphabetic character 
X Alphanumeric character 
9 Numeric character 

Operation Symbols 
S Signed 

V Assumed decimal point location 

P Assumed decimal point scaling position 

Replacement Characters 

Z Leading zeros replaced by blanks 
* Leading zeros replaced by * (check protection symbol) 

Insertion Characters 

$ Dollar sign; floating when more than one (dollar sign may be 
replaced by currency sign defined in SPECIAL-NAMES) 

< Comma 

/ Slash (instead of comma) 

Actual decimal point 
B Blank 
0 Zero 

Minus sign when item is negative, blank when positive; 
floating when more than one 

+ Plus sign when item is positive, minus when negative; 
floating when more than one 

CR Credit symbol when item is negative, blank when positive 
DB Debit symbol when item is negative, blank when positive 


6 



DATA SPECIFICATIONS 






Common and 






File 



Working 


Constant 



Section 

Storage Sections 

Section 




g 

e 



g 

e 



g 

e 



r 

1 



r 

1 



r 

1 


01 

o 

e 

77 

01 

0 

e 

77 

01 

0 

e 


u 

m 




m 



u 

m 



P 




P 




P 


REDEFINES 

1 











SIZE 



R 

R 



R 

R 



R 

USAGE 












CLASS 








R 




OCCURS 

1 



1 

1 



1 

1 



POINT LOCATION 

J 

1 



J 




J 

1 


SIGNED 

J 

1 



J 

1 



J 

1 


JUSTIFIED 

J 

1 



J 

1 



J 

1 


SYNCHRONIZED 

J 

1 



J 

1 



J 

1 


PICTURE 

J 

1 



J 

1 



J 

1 


Editing Clauses 

~T 

T" 



J 

1 



J 

1 

~T 

COPY 












VALUE 

K 


~C~ 





~v~ 



~ 

FILLER 

1 



~r 

~r 



1 

~r 




C Legal only in defining values for condition names 

I Illegal 

R Required if PICTURE is not used 

blank Optional 

V Required 

J Legal only on elementary 01 items 

K Documentary only 
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DATA DIVISION 

DATA DIVISION . 

[ FILE SECTION. ] 
[ COMMON-STORAGE SECTION .] 
[ WORKING-STORAGE SECTION .] 
[ CONSTANT SECTION .] 

[ REPORT SECTION .] 


File Description Entry (File Section Only) 
format 1: 


FD file-name COPY library-name 


REPLACING 


literal-1 
word-1 ^ 
identifier-T 




literal-2 

word-2 

identifier-2 


! literal-3 \ 
word-3 > BY 
identifier- 3 ) 


! literal-4 
word-4 
identifier-4 


1 ] 




format 2: 

FD file-name 


RECORDING MODE IS 


K BINARY n 
DECIMAL jj 


K HIGH \ 

LOW > DENSITY 

hyper ) 


[ FILE CONTAINS ABOUT integer-1 RECORDS ] 


( RECORDS n 
CHARACTERS^J 


I^ BLOCK CONTAINS [integer-2 TO] integer-3 ^ 
r RECORD CONTAINS [integer-4TO] integer-5 CHARACTERS 


DEPENDING ON 


( RECORD-MAR K ill 
fdata-name-1 /JJ 


( RECORDS ARE! 

^ (RECORD IS / 




( omitted > 

'‘data-name-2 ^ 
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If label records are STANDARD: 

{ Identification } {dS-nlme-a} 
[ date-written is {|;“l!'-3„,e-4}] 
[ edition-number is 
[riel^numer isI^S^Vb}] 

[ rETENTION-CY CU is 
I f label records are data-name-2: 

[ value of ending-tape-label-identifier 

^ lg niteral-6 H 
\data-name-8) J 

[unage is {iSili} 

i PATA data-name-9 [data-name-10] ...| 

riREPORTS ARE) . _^_ 1 I 

LI rEPORT i s / lreport-name-2J ...J 

f SEQUENCED ON data-name-11 [data-name-12] ... ] . 


Sort File Description Entry (File Section Only) 
format 1: 

r literal-1 

SD file-name COPY library-name I REPLACING < word-1 


'[» 

Uiteral-2 | piteral-3 | 
word-2 y < word-3 ^ 

(identifier-2) L (identifier-3) 


(identifier-1 
■al-4 

(identifier-4 


riiteral-4 
BY s word-4 


SD file-name 

[ FILE CONTAINS ABOUT integer-1 RECORDS ] 

[ RECORD CONTAINS [integer-2 TO] integer-3 CHARACTERS] 

j^DAJA { reCORD^ ^^^} data-name-1 [data-name-2] ... j . 
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Record Description Entry (File, Common-Storage, Working-Storage 
and Constant Sections) 



format 1; 

level-number data-name-1 r REDEFINES data-name-21 
COPY data-name-3 [FROM LIBRARY ]. 

format 2: 



j data-name-11 
' (FILLER / 


[ REDEFINES data-name-2] 


[ USAGE IS] 


ALPHABETIC J 

fcLASS IS] ) NUMimC ( 

^ ] ALPHANUMERIC t 

) 

c.-rr- .r • .nCHARACTERSnl 
SIZE IS mteger-l[{^,^,^3 }JJ 

/ COMP 

COMPUTATIONAL 
COMP-1 

COMPUTATIONAL-1 
COMP-2 

COMPUTATIONAL-2 
DISPLAY 
y INDEX 

1^ OCCURS integer-! [TO integer-2] TIMES 
[ DEPENDING ON data-name-1] 

[{bSenSns} ISda.a-name-4 ldata-nama-51...] 
[ INDEXED BY index-name-1 [index-name-2] ...]j 





[ SIGNED ] 

[ SIGN IS data-name-6] 

^ POINT LOCATION IS integer-5 PL AC Es] 


( JUST 1 
(JUSTIFIED f 
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r /SYNC \ 

/LEfl 1 1 

1 ASYNCHRONIZED) 

(RIGHT/ J 


[ VALUE IS literal-1] 

[ {IiURe} 'Scharacter-string] 


[ LEAVING integer-6 PLACES] 


/ ZERO SUPPRESS 
) CHECK PROTECT 
1 FLOAT DOLLAR SIGN 
( FLOAT CURRENCY SIGN 

r I— 11- 

L ( BLANK WHEN ZERO ) J 
format 3: 

66 data-name-1 RENAMES data-name-2 [ THRU data-name-3]. 


format 4: 


88 condition-name |v^l(jES^Re} [ THRU literal-2] 

[literal-3 [ THRU literal-4] ...]. 


Report Description Entry (Report Section only) 
format 1: 

RD report-name [WITH CODE mnemonic-name-1] 
literal-1 1 

REPLACING I word-1 / BY 
(identifier-1) 

(literai-2 t r/literal-3 \ niteral-4 n 

< word-2 I < word-3 [ ^ ) word-4 / ... 

(identifier-2 J 1_( identifier-3) (identifier-4 )J 

format 2: 

RD report-name [WITH CODE mnemonic-name-1] 


" 

^data-name-1 [data-name-2] ... ' 

' 

(CONTROL IS ) 

FINAL • 

> 

(CONTROLS ARE) ^ 

1 FINAL data-name-1 [data-name-2] ... ( 

L 
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FnA^r- /kiMlJIS ) . , qiNE \ 

iuMTS are; 1 lines ; 

[ HEADING integer-2] [ FIRST DETAIL integer-3] 
[ LAST DETAIL integer-4] [ FOOTING integer-5]] 

Report Group Description Entry (Report Section only) 
format 1: 

01 [data-name-1 ] COPY data-name-2 [FROM LIBRARY ] 

! literal-1 j ( literal-2 | 
word-1 > BY < word-2 } 
identifier-l) * identifier-2 * 

■^literal-3 ^ 

< word-3 > BY 
_* identifier- 3 ) 


format 2: 

01 [data-name-1] 

/ ALPHABETIC 

[CLASS IS] )mmiC 

j ALPHANUMERIC 

(m 


! literal-4 i" 
word-4 > 
identifier-4' _ 


! integer-1 n-i 

PLUS integer-21 
NEXT PAGE 

1 ] 


LINE NUMBER IS 


{ integer-3 
PLUS inteqer-4 
NEXT PAGE 


[^ SIZE IS integer-5 | 


CHARACTERS)! 


DIGITS 




[ USAGE IS] DISPLAY 
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REPORT HEADING 
RH 

PAGE HEADING 

OVERFLOW HEADING 

i CONTROL HEADING ) ( data-name-3 

\CH f ( FINAL 

DETAIL 

( CONTROL FOOTING ) (data-name-4 
\CF / ( FINAL 

OVERFLOW FOOTING 

QV 

PAGE FOOTING 

Pf- 

REPORT FOOTING 

Bf 


} 


Report Element Description (Report Section only) 


level number [data-name-1 ] 


( ALPHABETIC 


[CLASS IS]< 


ALPHANUMERIC ( 
AN 1 


[ COLUMN NUMBER IS integer-1] 

■ ( ZERO SUPPRESS \ 

1 CHECK PROTECT / 

] FLOAT DOLLAR SIGN ) 
f FLOAT CURRENCY SIGN \ 

( BLANK WHEN ZERO ]] 

I BWZ [J 

[GROUP INDICATE] 


LINE NUMBER IS 


[ LEAVING integer-2 PLACES] 
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[ { ^TURe } is character-string] 

1^ POINT LOCATION IS integer-5 PLACEsJ 

(data-name-2n 

»J 

I SIGNEDl 

[ SIGN IS data-name-3] 

r C.7 CIC- . e (CHARACTERSn 
[ S!^ISmteger-6 [j 

1 ( SELECTED data-name-4^ 

SOURCE IS } LINE-COUNTER [ 

( page-counter ) 

SUM data-name-5[data-name-6] ... [ UPON data-name-7] 
VALUE IS literal-1 

[[ USAGE IS] DISPLAY ]. 

TYPE clause allowed if level 01 

NEXT GROUP clause allowed if level 01 
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USAGE SPECIFICATIONS 


Element 

Upper Limit 

data-name 

30 characters, 

5 levels of qualifications 

elementary item/literal 

255 characters/digits 

PERFORM nesting 

15 levels in separate overlays, 
no limit in main overlay 

level numbers 

01-49,66,77,88, FD, RD, SD 

OCCURS...DEPENDING ON 

1 per record description 

library copies 

5 levels of nesting 

ACCEPT items 

80 characters; 

40 characters from console 

PICTURE clause 

30 symbols 

arithmetic operand 

18 digits 

GO TO statement 

100 procedure names 

ALTER statement 

100 procedure names 

DISPLAY items 

no limit 

ENTER parameters 

no limit 

Total files, I/O devices, 
and reports 

53 

Total procedure names 

depends on field length 

Total external references 

depends on field length 
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VALID MOVE OPERATIONS 


Rec. 
NField 
SourceN. 
Field \ 

Elem. 

Binary 

Elem. 

Alpha 

Elem. 

BCD 

Num. 

Elem. 

AN 

Elem. 

Edit 

Num. 

Elem. 

Edit 

AN 

Group 

AN 

Elem. 

Binary 

Num. 

Bin. 

X 

Conv. 

Num. 

Conv.t 

AN 

Conv. 

Edit 

Conv.t 

AN- 

Edit 

TD 

AN 

Elem. 

Alpha 

X 

AN 

TD 

AN 

AN 

X 

AN- 

Edit 

AN 

Elem. 

BCD (Mum. 

Conv. 

Bin. 

TD 

AN 

Num. 

ANt 

Edit 

AN- 

Edit 

ANt 

Elem. 

AN 

X 

TD 

AN 

Num. 

AN 

Edit 

AN- 

Edit 

AN 

Elem. 

Edit Num. 

X 

TD 

AN 

X 

AN 

X 

AN- 

Edit 

AN 

Elem. 

Edit AN 

X 

TD 

AN 

X 

AN 

X 

AN- 

Edit 

AN 

Group AN 

TD 

AN 

TD 

AN 

TD 

AN 

AN 

X 

AN- 

Edit 

AN 

Group 
Binary & 
Mixed 

TD 

AN 

TD 

AN 

TD 

AN 

TD 

AN 

X 

TD 

AN- 

Edit 

TD 

AN 

Zero 

Num. 

Bin. 

X 

Num. 

AN 

Edit 

AN- 

Edit 

AN 

Literal & 
Fig. Cons. 
AN 

X 

TD 

AN 

X 

AN 

X 

AN- 

Edit 

AN 

Literal 

Num. 

Conv. 

Bin. 

X 

Num. 

ANt 

Edit 

AN- 

Edit 

AN 


t Valid only when source is integer; others PD. 


Any move to a binary or mixed group is treated as an alphanumeric 
move; a precautionary diagnostic is issued. 

A move to a figurative constant or literal is illegal. 


X 

Illegal 

AN 

Alphanumeric 

AN-Edit 

Alphanumeric edited 

Conv. 

Conversion prior to move 

Edit 

Numeric edited 

Num. 

Numeric 

Num. Bin. 

Numeric binary 

TD 

Trivial diagnostic issued 
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PROCEDURE DIVISION 


PROCEDURE DIVISION . 

DECLARATIVES . 

Section-name SECTION , declarative-sentence. 

Paragraph-name, sentence-1 [sentence-2] ... 

END DECLARATIVES . 

ACCEPT identifier-1 [ FROM mnemonic-name-1] 

iidentifier-1 \ T/identifier-2\ 1 

^iliteral-l i [\literal-2 | ■] 'dentifier-n [ ROUNDEp l 

[ON SIZE ERROR imperative-statement] 

(identifier-l) r/identifier-2\ "I ^ GIVING ) 

— lliteral-1 j LUiteral-2 > \tO / 

identifier-m [ ROUNDED] [identifier-n [ ROUNDED] ] ... 

[ON SIZE ERROR imperative-statement] 


identifier-11 Ff identifier-21 "I (identifier-31 

literal-1 / Uliteral-2 f — lliteral-3 / 


GIVING identifier-m [ ROUNDED ] [identifier-n [ ROUNDED ] ]... 


[ON SIZE ERROR imperative-statement] 


^ {corresponding^ identifier-1 to identifier-2 [ ROUNDED ! 

[identifier-3 [ ROUNDED ]] ... 

[ON SIZE ERROR imperative-statement] 

ALTER procedure-name-1 TO [ PROCEED TO ] procedure-name-2 
[procedure-name-3 TO [ PROCEED TO ] procedure-name-4] ... 


CLOSE file-name-1 

[(S)] 

j^WITH 

[NO REWINDIl 
(LOCK jj 

l^file-name-2 

E}] 

[with ^ 

[NO REWINDnl 
(LOCK /JJ 
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COMPUTE identifier-1 [ ROUNDED ] [identifier-2 [ ROUNDED ] ] ... 


/FROM ) 

(literal \ 

T 

^ arithmetic-expression? 

(equals^ 

(identifier-3 ) 


[ON SIZE ERROR imperative-statement] 

/COPY ] r ) 

ill^UDEf ''^'■^’'V-name REPLACING <word-1 > BY 
'-^- L (identifier-1/ 

! literal-2 j T/literal-3 | /literal-4 ~J 

word-2 > < word-3 > BY < word-4 > ... 

identifier-2) L(identifier-3) (identifier-4)-J -• 

[ UPON mnemonic-name] 

DIVIDE INTO identifier-2 [ROUNDED] 

- lliteral-1 ) - - 

[identifier-3 [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 

i‘dentifier-l\ (BY \ i'd®ntifier-2\ 

n[^Mli.eral-2 } GIVING ,dent,f,er-3 

[ ROUNDEO l tidentifier-4 I ROUNDED! 1 .,. 

[ON SIZE ERROR imperative-statement] 


DIVIDE 


(identifier-l) (BY ) (identifier-2) 
tliteral-1 / t iNTO / lliteral-2 / 


GIVING identifier-3 [ ROUNDED ] 

REMAINDER identifier-4 

[ON SIZE ERROR imperative-statement] 


ENTER COBOL . 

ENTER LINKAGE . 

icALL^} [language-name] 


routine-name 


[ USING parameter-list] . 
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EXAMINE identifier-1 



a 


TALLYING 

REPLACING 


ALL ) 

LEADING > 
UNTIL first) 


literal-1 [ REPLACING BY 
literal-2] 


(— I 

{ leading > literal-3 ^ literal-4 

( [UNTIL ] first ) 


EXIT. 


( EXIT PROGRAM .1 
[ RETURN . / 

GENERATE identifier-1 
GO TO [procedure-name-1] 

GO TO procedure-name-2 [procedure-name-3 ...] 
DEPENDING ON identifier-1 


[F conditional-expression [ THEN ] 


[ THEN ] 


( OTHERWISE ) 

Ielse / 


/ statement-1 1 

( NEXT SENTENCE / 
{ statement-2 1 
(NEXT SENTENCE/ 


Conditional expressions include; 


I 


IS [NOIJ 


{ identifier-1^ j 
literal-1 V 
formula-1 ) \ 


GREATER THAN 

> 

LESS THAN 

)<^ 

GREATER-EQUAL to; 

\ GQ 

LESS-EQUAL TO 

LQ 

EQUAL TO 
EQ 


H identifier-2) 
iiteral-2 / 
formula-2 ) 


IS UNEQUAL TO 
EQUALS 
EXCEEDS 
IS?^ 

IS NGR 
\\S NLS 
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I 


ndentifier-3 

\formula-3 


/ POSITIVE \ 

I IS [i^] | negative [ 
' (zero ) 


identifier-4 IS [ NOT ] 


(NUMERIC ) 


l ALPHABETIC l 

[NOT] /condition-name ) 

- \ switch-status-name/ 

INITIATE i[report-name-2] ... ( 

- - f 

j IHIkponding} I 

) literal-1 ( — 

identifier-1 ' 


identifier-3 [identifier-4] ... 
. -r.r .1 V/ |identifier-T 


\literal 




identifier-2 [ ROUNDED ] 


[identifier-3 [ ROUNDED ]] ... 

[ON SIZE ERROR imperative-statement] 

GIVING identifier-3 [ ROUNDED ] 
[identifier-4 [ ROUNDED ] ] ... 

[ON SIZE ERflOR imperative-statement] 


NOTE character-string. 

INPUT file-name-1 


l^file-i 


( REVERSED 
IWITH NO REWIND 


„ r^REVERSED 
nam8-2 


.IWITH REWIND 
OPEN ( OUTPUT file-name-3[WITH NO REWIND ] 

[file-name-4[WITH NO REWIND ]] .. 


}] 

}] •■■] 


( INPUT-OUTPUT ) 


ll-O 


file-name-5(fiie-name-6] .. 


I 




PERFORM procedure-name-1 [ THRU procedure-name-2] 
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PERFORM procedure-name-1 [ THRU procedure-name-2] 


(idemifier-n 
hnteger-1 ; - 

PERFORM procedure-name-1 [ THRU procedure-name-2] 
UNTIL condition-1 


PERFORM procedure-name-1 [ THRU procedure-name-2] 


VARYING 


I index-name-1 
Jdentifier-1 



literal-1 j 
index-name-2 
identifier-2 J 


BY 


'literal-2 ) 
lidentifier-S/ 


UNTIL condition-2 


[R after 


index-name-3) 
identifier-4 / 


FROM 


! literal-3 
index-name-4 
identifier-5 



literal-4 

identifier-6 




UNTIL condition-3 


! literal-5 \ 
index-name-6> ^ 
identifier-8 ) 

{ldentlfer-9} walk condition-4]] 

READ file-name-1 RECORD [ INTO identifier-1] AT END 
imperative-statement 

READ file-name-1 RECORD [ INTO identifier-2] INVALID KEY 
imperative-statement 

RELEASE record-name-1 [ FROM identifier-1 ] 

RETURN file-name-1 RECORD [ INTO identifier-1] AT END 
imperative-statement 

SEARCH identifier-1 [^ VARYING {'jdfntifirr'^2^~^} 

[AT END imperative-statement-1 ] 

ymiNcondidon-, 

[^Ncondidon-2{^-]2SSI"’''}] ^ 


Hndex-name-5) 
(identifier-? / 
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SEARCH ALL identifier-1 [AT END imperative-statement-1 ] 

^ /imperative-statement-21 
WHEN condilion-1 ^ ^EXTSENTENCE } 

SEEK (ile-name-l RECORD (WITH KEY CONVERSION ! 


/index-name-1) 

r/index-2 ) 1 

1 identifier-1 / 

Ll identifier-2/ “J 



SET index-name-1 [index-name-2] ... 

/UP ^ \ /identifier-n 

I DOWN BY/ lliteral-1 / 

SORT file-name-1 ON I 1 KEY identifier-1 [identifier-2]... 

I ASCENDING ; 

{ ascending ^} key identifier-3 lidentifier-4) ...] 

nNPUT PROCEDURE IS section-name-1 [THRU section-name-2] \ 
V USING file-name-2 / 

i OUTPUT PROCEDURE IS section-name-3[TH RU section-name-4] 1 
^ GIVING file-name-3 / 

/literal) 

^{run}- 

r,. /Identifier-1) f/identifier-2) 1 . 

SUBTRACT ^ } UliteraW } -J EBOM .dent,f,er-m 

[ ROUNDED ] [identifier-n [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 



^ ■ 


/identifier-li 
literal- 


I, 


ier-1\ r/identifier-2) 1 /identifier-m) 

1 f U literal-2 ] -J \literal-m } 


GIVING identifier-n [ ROUNDED ] 
[identifier-o [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 
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{ Ssponding I ^ 

identifier-2 [ ROUNDED ] [identifier-3 [ ROUNDED ] ... ] 
[ON SIZE ERROR imperative-statement]. 


TERMINATE 


report-name-1 [report-name-2] ... 
ALL 


USE AFTER STANDARD ERROR PROCEDURE ON' 


file-name j 

INPUT I 

OUTPUT / 

I INPUT-OUTPUT ! 
. 1-0 ■ ] 


r BEFORE ) , 
- (AFTER / ' 


H BEGINNING n 
ll ENDING fj 


[{it}] 




file-name 

INPUT 

OUTPUT 

INPUT-OUTPUT 


USE BEFORE REPORTING identifier-1 [identifier-2] ... 

USE FOR KEY CONVERSION ON . \ 

-: - lfile-name-1 [file-name-2]... f 


WRITE record-name-1 [ FROM identifier-1 ] 


fBEFORE) 


ridentifier-2 LINESJ' 

(AFTER ] 

ADVANCING j 

integer-1 LINES > 
[mnemonic-name-1/- 


f END-OF-PAGE \ 


EOP 


I 


imperative-statement 


WRITE record-name-2 [ FROM identifier-2] INVALID KEY 
imperative-statement 
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COBOL CONTROL CARD 


Ten parameters are used to select compilation options. All are optional 
and may be specified in any order. 


COBOL. ' 

COBOL {pl,p2,p3,p4,p5,p6,p7,p8,p9,pl0): 


[comments] 


pi (Source Input) 

absent \ 



1 = input) 

INPUT assumed 


1 = fn 

source input on file fn 

p2 (Binary Output) 

absent \ 



B [ 

relocatable binary file on file 


B = LGO; 

LGO 


B = fn 

binary output on file fn 


B =0 

suppress binary output 

p3 (List) 

absent^ 


L / 

normal listing on OUTPUT 


LX 

extended diagnostics 


LR 

cross reference pointers 


LC 

copy from library 


LO 

object code in octal 


LM 

data map 


L = fn 

output on file fn 


L = 0 

suppress list output 

p4 (Source Library) 

absent ) 



s 

S = COLIB7 

source library from file COLIB 


S = fn 

from file fn 

p5 (Subcompile) 

SUB 

suppresses all data division 


binary output except from 
working and constant storage 


p6 (Overlay Binary) OB ) . . , __ 

OB = LG02 j output on LG02 

OB = fn binary output from overlay 

segments put on file fn 
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p7(EDlTLIB) E = fn 

p8 (ASCII Collating) U 

p9 (Tape Sort) T 

plO (BCOMMON) H 


add object code to system 
library using EDITLIB 

use ASCII collating sequence 

sort requests tape sort 

BCOMMON replaces blank 
common as buffer area 
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COBOL CODING FORMAT 


Column 

1 - 6 

7 

8 

12 

73-80 

Sequence number 

Hyphen 

Division name 

Section name 

Paragraph name 

File Description 

Record Description 

First Sentence 


Element 

Sequence number 

Hyphen for continuation of words and/ 
or literals 

Division name 
Section name 
Paragraph name 
File description 

Record description level number 
Record description data name 
First sentence of a paragraph 
File name 

Continuation of a data description or a 
sentence 

Identification, optional 

Optional, checked by the processor if 
used 

Indicates continuation of a word from 
the preceding line 

Terminated by period, remainder of line 
is blank 

Followed by optional priority number, 
terminated by period, remainder is blank 

Terminated by period, and followed by 
at least one blank before text begins 

FD or SD followed by file name and at 
least one blank 

Level number followed by at least one 
blank and data name 

Begins in or after column 12. Spaces 
may be used freely to avoid splitting a 
word. If a word is split, a hyphen must 
appear in column 7 of the next line. 
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EXECUTION 
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EXECUTION WITH SEGMENTATION 



























COBOL RESERVED V/ORD LIST 

•indicates word not implemented in 6000 COBOL. 



ABOUT 

ACCEPT 

ACCESS 

ACTUAL 

ADD 

•ADDRESS 

ADVANCING 

AFTER 

ALL 

ALPHABETIC 

ALPHANUMERIC 

ALTER 

ALTERNATE 

AN 

AND 

•APPLY 

ARE 

AREA 

AREAS 

ASCENDING 

ASSIGN 

AT 

AUTHOR 

BEFORE 

BEGINNING 

BEGINNING-FILE-LABEL 

BEGINNING-TAPE-LABEL 

BINARY 

•BITS 

BLANK 

BLOCK 

BWZ 

BY 

CALL 

CF 

CH 

CHARACTER 

CHARACTERS 

CHECK 

CLASS 

•CLOCK-UNITS 

CLOSE 

COBOL 


CODE 

COLUMN 

COMMA 

COMMON-STORAGE 

COMP 

COMP-1 

COMP-2 

COMPASS 

COMPUTATIONAL 

COMPUTATIONAL-1 

COMPUTATIONAL-2 

COMPUTE 

CONFIGURATION 

CONSOLE 

CONSTANT 

CONTAINS 

CONTROL 

CONTROLS 

•CONVERSION 

COPY 

CORR 

CORRESPONDING 

CURRENCY 

DATA 

DATE-COMPILED 

DATE-WRITTEN 

DE 

DECIMAL 

DECIMAL-POINT 

DECLARATIVES 

•DEFINE 

DENSITY 

DEPENDING 

DESCENDING 

DETAIL 

DIGIT 

DIGITS 

DISPLAY 

DIVIDE 

DIVIDED 

DIVISION 

DOLLAR 

•DOWN 
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EDITION-NUMBER 

ELSE 

END 

END-OF-PAGE 

ENDING 

ENDING-FILE-LABEL 

ENDING-TAPE-LABEL 

ENDING-TAPE-LABEL-IDENTIFIER 

ENTER 

ENTRY 

ENVIRONMENT 

EOP 

EQ 

EQUAL 

EQUALS 

ERROR 

EVERY 

EXAMINE 

EXCEEDS 

EXIT 

EXPONENTIATED 

FD 

FILE 

FILE-CONTROL 

FILE-LABEL 

FILE-LIMIT 

FILE-LIMITS 

FILLER 

FINAL 

FIRST 

FLOAT 

FOOTING 

FOR 

^FORMAT 

FORTRAN-R 

FORTRAN-X 

FROM 

GENERATE 

GIVING 

GO 

GO 

GR 

GREATER 

GREATER-EQUAL 

GROUP 


•HASHED 

HEADING 

HIGH 

HIGH-VALUE 

HIGH-VALUES 

•HOLD 

HYPER 

ID 

IDENTIFICATION 

IF 

IN 

INCLUDE 

INDEX 

INDEXED 

INDICATE 

INITIATE 

INPUT 

INPUT-OUTPUT 

INSTALLATION 

INTO 

INVALID 

1-0 

l-O-CONTROL 

IS 

JUST 

JUSTIFIED 

KEY 

•KEYS 

LABEL 

LAST 

LEADING 

LEAVING 

LEFT 

LESS 

LESS-EQUAL 

LIBRARY 

LIMIT 

LIMITS 

LINAGE 

LINAGE-COUNTER 

LINE 

LINE-COUNTER 

LINES 
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LINKAGE 

LOCATION 

LOCK 

LOW 

LOW-VALUE 

LOW-VALUES 

LOWER-BOUND 

LOWER-BOUNDS 

LQ 

LS 

^MEMORY 

MINUS 

MODE 

^MODULES 

MOVE 

MULTIPLE 

MULTIPLIED 

MULTIPLY 

NEGATIVE 

NEXT 

NGR 

NLS 

NO 

NOT 

NOTE 

NO 

NUMBER 

NUMERIC 

OBJECT-COMPUTER 

OCCURS 

OF 

OFF 

OH 

OMITTED 

ON 

OPEN 

OPTIONAL 

OR 

ORGANIZATION 

OTHERWISE 

OUTPUT 

OV 

OVERFLOW 


PAGE 

PAGE-COUNTER 

PERFORM 

PF 

PH 

PIC 

PICTURE 

PLACES 

PLUS 

POINT 

POSITION 

POSITIVE 

PREPARED 

PRIORITY 

PROCEDURE 

PROCEDURES 

PROCEED 

•PROCESS 

PROCESSING 

PROGRAM 

PROGRAM-ID 

PROTECT 

PUNCH 

PUNCHB 

QUOTE 

QUOTES 

RANDOM 

RANGE 

RD 

READ 

RECORD 

RECORD-MARK 

RECORDING 

RECORDS 

REDEFINES 

REEL 

REEL-NUMBER 

RELEASE 

REMAINDER 

REMARKS 

RENAMES 

RENAMING 

REPLACING 

REPORT 
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REPORTING 

REPORTS 

RERUN 

RESERVE 

RESET 

RETENTION 

RETENTION-CYCLE 

RETURN 

REVERSED 

REWIND 

RF 

RH 

RIGHT 

ROUNDED 

RUN 

*SA 

SAME 

SD 

SEARCH 

SECTION 

SECURITY 

SEEK 

SEGMENT-LIMIT 

SELECT 

SELECTED 

SENTENCE 

SEOUENCED 

SEOUENTIAL 

SET 

SIGN 

SIGNED 

SIZE 

SORT 

SOURCE 

SOURCE-COMPUTER 

SPACE 

SPACES 

SPECIAL-NAMES 

STANDARD 

STATUS 

STOP 

SUBTRACT 

SUM 

^SUPERVISOR 


SUPPRESS 

SWITCH 

SYMBOLIC 

SYNC 

SYNCHRONIZED 

TALLY 

TALLYING 

TAPE 

TAPE-LABEL 

TERMINAL 

TERMINATE 

THAN 

THEN 

THROUGH 

THRU 

TIMES 

TO 

TODAYS-DATE 

TYPE 

UNEQUAL 

UNIT 

UNTIL 

*UP 

UPON 

*UPPER-BOUND 

‘UPPER-BOUNDS 

USAGE 

USE 

USING 

VALUE 

VALUES 

VARYING 

WHEN 

WITH 

‘WORDS 

WORKING-STORAGE 

WRITE 

ZERO 

ZEROES 

ZEROS 
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COLLATING SEQUENCE 





Collating 

Sequence 

COBOL 

Character 

Display Code 

Hollerith 

Punch 

00 

A 

55 

space 

01 

<* 

74 

8-5 

02 

[* 

61 

8-7 

03 


65 

0-8-5 

04 

=* 

60 

0-8-6 

05 

A * 

67 

0-8-7 

06 

t * 

70 

11-8-5 

07 

1* 

71 

11-8-6 

08 

> 

73 

11-8-7 

09 

>* 

75 

12-8-5 

10 

^ * 

76 

12-8-6 

11 


57 

12-8-3 

12 

) 

52 

12-8-4 

13 


77 

12-8-7 

14 

+ 

45 

12 

15 

$ 

53 

11-8-3 

16 

* 

47 

11-8-4 

17 

- 

46 

11 

18 

/ 

50 

0-1 

19 


56 

0-8-3 

20 

( 

51 

0-8-4 

21 

= 

54 

8-3 

22 

/t 

64 

8-4 

23 

< 

72 

12-0 

24 

A 

01 

12-1 

25 

B 

02 

12-2 

26 

C 

03 

12-3 

27 

D 

04 

12-4 

28 

E 

05 

12-5 

29 

F 

06 

12-6 

30 

G 

07 

12-7 

31 

H 

10 

12-8 




*Not in COBOL character set; may be present in data 
tCOBOL quote character ('') is output on printer as// 
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COLLATING SEQUENCE (Continued) 


Collating 

Sequence 

COBOL 

Character 

Display Code 

Hollerith 

Punch 

32 

1 

11 

12-9 

33 

V 

66 

11-0 

34 

J 

12 

11-1 

35 

K 

13 

11-2 

36 

L 

14 

11-3 

37 

M 

15 

11-4 

38 

N 

16 

11-5 

39 

0 

17 

11-6 

40 

P 

20 

11-7 

41 

Q 

21 

11-8 

42 

R 

22 

11-9 

43 

]tt 

62 

0-8-2 

44 

S 

23 

0-2 

45 

T 

24 

0-3 

46 

U 

25 

0-4 

47 

V 

26 

0-5 

48 

w 

27 

0-6 

49 

X 

30 

0-7 

50 

Y 

31 

0-8 

51 

Z 

32 

0-9 

52 

:* 

63 

8-2 

53 

0 

33 

0 

54 

1 

34 

1 

55 

2 

35 

2 

56 

3 

36 

3 

57 

4 

37 

4 

58 

5 

40 

5 

59 

6 

41 

6 

60 

7 

42 

7 

61 

8 

43 

8 

62 

9 

44 

9 


■f"l'COBOL record mark 
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